home *** CD-ROM | disk | FTP | other *** search
- /*
-
- CompileModules.rexx
-
- $VER: 25 Mar 2000
-
- */
-
- options results
- address command
-
- Path.def = "definitions/"
- Path.module = "modules/"
- Compiler = "Compiler"
- ErrorLog = "RAM:Compiler.errors"
-
- if exists(ErrorLog) then 'C:Delete' ErrorLog" QUIET"
- 'C:List' Path.def 'PAT "#?.def" ALL FILES LFORMAT "%s%s" TO T:Compiles'
-
- call open('Compiles', "T:Compiles")
- do until eof('Compiles')
- cFile = readln('Compiles'); if cFile = "" then leave
- cFile = delstr(cFile,1,length(Path.def))
-
- Compiler "Definition="cFile" ErrorLog="ErrorLog
- end
- call close('Compiles')
-
- 'C:Delete' "T:Compiles QUIET"
- exit
-